﻿Public Class objCompanyProfile
    Dim _compID As String
    Dim _compName As String
    Dim _compNPWP As String
    Dim _compAddress As String
    Dim _compDesc As String

    Public Property CompID() As String
        Get
            Return _compID
        End Get
        Set(ByVal value As String)
            _compID = value
        End Set
    End Property

    Public Property CompName() As String
        Get
            Return _compName
        End Get
        Set(ByVal value As String)
            _compName = value
        End Set
    End Property

    Public Property CompNPWP() As String
        Get
            Return _compNPWP
        End Get
        Set(ByVal value As String)
            _compNPWP = value
        End Set
    End Property

    Public Property CompAddress() As String
        Get
            Return _compAddress
        End Get
        Set(ByVal value As String)
            _compAddress = value
        End Set
    End Property

    Public Property CompDesc() As String
        Get
            Return _compDesc
        End Get
        Set(ByVal value As String)
            _compDesc = value
        End Set
    End Property
End Class

Public Class objStudentData
    Dim _studentID As String
    Dim _studentFullName As String
    Dim _studentAddress As String
    Dim _studentCity As String
    Dim _studentPhoneM As String
    Dim _studentPhoneH As String
    Dim _studentPhoneO As String
    Dim _studentPict As String

    Public Property StudentID() As String
        Get
            Return _studentID
        End Get
        Set(ByVal value As String)
            _studentID = value
        End Set
    End Property

    Public Property StudentFullName() As String
        Get
            Return _studentFullName
        End Get
        Set(ByVal value As String)
            _studentFullName = value
        End Set
    End Property

    Public Property StudentAddress() As String
        Get
            Return _studentAddress
        End Get
        Set(ByVal value As String)
            _studentAddress = value
        End Set
    End Property

    Public Property StudentCity() As String
        Get
            Return _studentCity
        End Get
        Set(ByVal value As String)
            _studentCity = value
        End Set
    End Property

    Public Property StudentPhoneM() As String
        Get
            Return _studentPhoneM
        End Get
        Set(ByVal value As String)
            _studentPhoneM = value
        End Set
    End Property

    Public Property StudentPhoneH() As String
        Get
            Return _studentPhoneH
        End Get
        Set(ByVal value As String)
            _studentPhoneH = value
        End Set
    End Property

    Public Property StudentPhoneO() As String
        Get
            Return _studentPhoneO
        End Get
        Set(ByVal value As String)
            _studentPhoneO = value
        End Set
    End Property

    Public Property StudentPict() As String
        Get
            Return _studentPict
        End Get
        Set(ByVal value As String)
            _studentPict = value
        End Set
    End Property
End Class


